home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / PZAZZDEM / PZAZZDEM.ZIP / PZDEMO / PZDSPBUT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-03-03  |  2KB  |  86 lines
  1. unit Pzdspbut;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, PZBPanel, PZShaded, StdCtrls, PZLabel, PZSpButt,
  8.   Menus;
  9.  
  10. type
  11.   TPZSpeedButtonForm = class(TForm)
  12.     HeaderPanel: TPZBitmapPanel;
  13.     PZShaded1: TPZShaded;
  14.     DescrPanel: TPZBitmapPanel;
  15.     PZLabel4: TPZLabel;
  16.     ResultsPanel: TPZBitmapPanel;
  17.     PZLabel5: TPZLabel;
  18.     PZLabel2: TPZLabel;
  19.     OutputPanel1: TPZBitmapPanel;
  20.     PZBitmapPanel1: TPZBitmapPanel;
  21.     PZLabel1: TPZLabel;
  22.     ClickedLabel: TPZLabel;
  23.     PZSpeedButton1: TPZSpeedButton;
  24.     PZSpeedButton2: TPZSpeedButton;
  25.     PZSpeedButton3: TPZSpeedButton;
  26.     PZSpeedButton4: TPZSpeedButton;
  27.     PZSpeedButton5: TPZSpeedButton;
  28.     PZSpeedButton6: TPZSpeedButton;
  29.     PZSpeedButton7: TPZSpeedButton;
  30.     PZSpeedButton8: TPZSpeedButton;
  31.     PZSpeedButton9: TPZSpeedButton;
  32.     PZSpeedButton10: TPZSpeedButton;
  33.     OutputPanel2: TPZBitmapPanel;
  34.     PZBitmapPanel3: TPZBitmapPanel;
  35.     PZSpeedButton11: TPZSpeedButton;
  36.     PZSpeedButton12: TPZSpeedButton;
  37.     PZSpeedButton13: TPZSpeedButton;
  38.     PZSpeedButton14: TPZSpeedButton;
  39.     FavoritesMenu: TPopupMenu;
  40.     Favorite11: TMenuItem;
  41.     Favorite12: TMenuItem;
  42.     Favorite13: TMenuItem;
  43.     Favorite14: TMenuItem;
  44.     Favorite15: TMenuItem;
  45.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  46.     procedure FormCreate(Sender: TObject);
  47.     procedure FormDeactivate(Sender: TObject);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. var
  55.   PZSpeedButtonForm: TPZSpeedButtonForm;
  56.  
  57. implementation
  58.  
  59. Uses PZDMain;
  60.  
  61. {$R *.DFM}
  62.  
  63. procedure TPZSpeedButtonForm.FormCreate(Sender: TObject);
  64.  
  65. Begin
  66.   SetBounds(10,10,MainForm.ClientWidth-20,MainForm.ClientHeight-MainForm.MainPanel.Height-20);
  67.   HeaderPanel.Background.LoadBitmap('PZD_STONE');
  68.   DescrPanel.Background.LoadBitmap('PZD_STONE');
  69.   ResultsPanel.Background.LoadBitmap('PZD_STONE');
  70.   OutputPanel1.Background.LoadBitmap('PZD_STONE');
  71.   OutputPanel2.Background.LoadBitmap('PZD_STONE');
  72. End;
  73.  
  74. procedure TPZSpeedButtonForm.FormClose(Sender: TObject;  var Action: TCloseAction);
  75.  
  76. Begin
  77.   Action:=caFree;
  78. End;
  79.  
  80. procedure TPZSpeedButtonForm.FormDeactivate(Sender: TObject);
  81. begin
  82.   Close;
  83. end;
  84.  
  85. end.
  86.